Top 10k strings from Redcoats (1984)(MC Lothlorien)[a].tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
9
7
6
5 ;"Action";
5 *(l$(y,x+1
5
5
5
3 a$;" ";sv'
3
2 ;"Enemy unit wiped out":
2 ;"Enemy unit routed":
2 )+dist*2.1
2 (cas*diff)
2 "name of battle ? ";
2
2
2
2
1 stay in cover
1 see which units are in cover
1 save battle to tape
1 save battle
1 s$=(t$+" ")(
1 s$=(s$+" ")(
1 s
1 q$="Save to MICRODRIVE #1":
1 q$="Load from MICRODRIVE #1":
1 q$="Is this correct":
1 q$="Do you wish to transfer the program to MICRODRIVE #1":
1 max+"),0,"+
1 map last (23=title
1 l$(a,b)=" ":
1 l$(a)=" "(
1 initialise
1 in;("British "
1 in;"S:";t(i,3
1 dist<mr*1.6
1 dir=dir-.2
1 deployment agency
1 d>range*range*2
1 computers move
1 change units
1 change title
1 change deployment
1 c
1 b$="British":
1 b$="American":
1 a$="reinforcements on move number,1,50":
1 a$="mlfurn?cq":
1 a$="ltmudsp":
1 a$="acmr":
1 a$="The British have won":
1 a$="The Americans have won"
1 a$="Strength,1,10000":
1 a$="Reinforcements on move number,1,50":
1 a$="Morale value,10,100":
1 a$="Morale Threshold,1,"+
1 a$="How many British units,1,8":
1 a$="How many American units,1,8":
1 a$="Distance (0-"+
1 a$="Direction (0-12),0,12":
1 REDCOATS
1 R
1 Guildford e
1 Guildford
1 Freemans e
1 Freemans
1 Eutaw e
1 Eutaw
1 Cowpens e
1 Cowpens
1 Camden e
1 Camden
1 ;s$+".l$":
1 ;cas;" men killed":
1 ;cas;" men killed"
1 ;B$;" unit ";i:
1 ;(q$+" ?")
1 ;(a$);" ? ";
1 ;"Units MUST be defined first":
1 ;"Unit name ";
1 ;"Unit Routed ":
1 ;"Unit Definition";
1 ;"U unlimber";
1 ;"Type (M,R,C,A) ? "
1 ;"Too low:min=";mi:
1 ;"Too long.Max length=20":
1 ;"Too high:max=";ma:
1 ;"Title definition"
1 ;"The Battle of":
1 ;"Select option ";
1 ;"Score ";:
1 ;"Rewind tape to start of data. Connect ear to ear,press play"
1 ;"Reinforcements Arrive":
1 ;"Redcode"
1 ;"Redcoats"
1 ;"RELOAD":
1 ;"REDCOATS"
1 ;"R reload";
1 ;"Q Quit";
1 ;"Press ~ENTER~ to start again"
1 ;"Position tape at a blank part or a part that you do not mind overwriting."'" Make sure that the mic lead of the cassette is connected to that of the computer"
1 ;"Numeric input please":
1 ;"Not limbered":
1 ;"Need to reload":
1 ;"NOTHING"
1 ;"N nothing":
1 ;"Morale too low to charge":
1 ;"Map MUST be defined first":
1 ;"MOVE ":
1 ;"M move";
1 ;"L limber";
1 ;"Is that correct ? ";
1 ;"Is that O.K. ?":
1 ;"Is that O.K. ? ":
1 ;"INVALID (not artillery)":
1 ;"How many human players ";:
1 ;"Guns not unlimbered":
1 ;"Guns Not limbered":
1 ;"Full name":
1 ;"Filename (for cassette)":
1 ;"FIRE ":
1 ;"F fire";
1 ;"Do You want to be (B)ritish or (A)merican ";
1 ;"Difficulty (0-9) ? ";
1 ;"Cavalry cannot fire":
1 ;"Cannot reload when limbered":
1 ;"CHARGE":
1 ;"C charge";
1 ;"By M. Williams"
1 ;"British unit ";i'l$(24
1 ;"British casualties ";sa
1 ;"Battle of ";l$(23
1 ;"BEWARE if you answer ""y"" to the following question, the program will be saved, BUT the battle will NOT!!":
1 ;"Artillery cannot charge":
1 ;"American unit ";i'l$(24
1 ;"American casualties ";sb;
1 ;"Already loaded":
1 ;"Actions are:-";
1 ;"** STOP THE TAPE **":
1 ;" ":
1 ;"
1 9911888008888088080 "
1 8<<8888::200808003;;0008800''8888888888::20180800;;;00088008888888888888880000800;;;0088800888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 .(((((,,,,, &&00000000&.(((,,,, &&00000000000,,,,, &&&000000000000,,, 000000000080000, ''000000800080000 8 888>080000800088000 8 8887080000880088000 ""
1 ---tests---
1 *(((i$="8"
1 *(((i$="7"
1 *"m";w;"Redcode"
1 );("American "
1 );") ":
1 );" M:";t(i,4
1 )...Save battle to tape"'
1 )...Play the game"
1 )...Load battle from tape"''
1 )...Change units"'
1 )...Change title"'
1 )...Change map"'
1 )...Change deployment"'
1 )-((i$="6"
1 )-((i$="5"
1 ));"ACMR"(t(i,7
1 ));" ";l$(24
1 )'"Is ready to play":
1 (uset*mset*dset)
1 (mset*uset*dset)
1 ((((((((((,,,,,,,,,,((((.....((((((((((((,,,,,,,,,,,,,.00000&.((((((,,,,,,,,,,,,, &0000006
1 ''''"The Battle of "'l$(23
1 ''"The battle names on this tape"'"are :-"
1 "invalid prompt":
1 "Units not defined":
1 "Units must be deployed first":
1 "Units must be defined first":
1 "Type ";i$:
1 "Troops not deployed":
1 "Searching for ";"""";s$;"""";" on Microdrive #1":
1 "Searching for ";"""";s$;""""''"Found:-"
1 "Map not defined":
1 "Map must be defined first":
1 "Freemans"'"Camden"'"Cowpens"'"Guildford"'"Eutaw"
1 "Battle names must be entered"'"EXACTLY as they are on the tape"
1 "19","1a","0c","1c","18","18","08","18"
1 "18","18","0c","fe","1c","18","08","18"
1 "08","0f","0c","fc","fc","84","84","84"
1 "00","28","54","10","54","10","10","28","128","128","128","128","128","128","128","ff","ff","128","128","128","128","128","128","128","ff","01","01","01","01","01","01","01","01","01","01","01","01","01","01","ff","00","00","00","00","00","00","00","ff","ff","00","00","00","00","00","00","00","128","128","128","128","128","128","128","128","01","01","01","01","01","01","01","01"
1 "00","00","1f","3f","78","f8","00","00"
1 ");l$(y,x+1
1 "' 8!!::1188833;;;0088800''"
1 "" !!!:91188800;;;8008880' "
1 "" !8000880008888088080 "
1 " !!9911888008888088080 ""
1 1984 M.C.Lothlorien"
1 Freemans Farm Freemans 9th Regiment Artillery 21st Regiment 62nd Regiment 20th Regiment Artillery German Artillery German Infantry Morgans Rifles Light Infantry Light Infantry Morgans Rifles Continentals Continentals Continentals Continentals
1 Guildford Courthouse Guildford Artillery 33rd Regiment 23rd Foot 71st Highlander Hessians Grenadiers 1st Guards Yaegers Cavalry N.C. Militia Riflemen Va. Militiamen 4/5 Virginian Artillery 1st Maryland 5th Maryland
1 "
1 Cowpens Cowpens British Legion British Legion 17th Dragoons 71st Highlanders 7th Recruits Royal Artillery Dragoons Light Infantry Militia Riflemen Carolina Militia Continentals Va. Rifles Georgia Militia Dragoons Continentals Continentals
1 Camden Camden 23rd Regiment 33rd Regiment Irish Volunteers British Legion N. Ca. Tories N. Ca. Volunteers 71st Highlanders Cavalry Continentals Artillery N. Ca. Militia N. Ca. Militia N. Ca. Militia Va. Militai Cavalry Light Infantry @
1 Eutaw Springs Eutaw Artillery S Ca Horse Flank Battalion 3rd Foot Tories 63rd Foot 64th Foot Yaegers Militia Continentals Dragoons Continentals Artillery Partisans Continentals Light Horse
1
1
1
1
1
1
1
1
1
1
1
1
1